home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE23 / SURVIVE / dmData.dfm / dmData.txt
Text File  |  1997-05-19  |  2KB  |  82 lines
  1. object dmDataModule: TdmDataModule
  2.   OnCreate = dmDataModuleCreate
  3.   OnDestroy = dmDataModuleDestroy
  4.   Left = 200
  5.   Top = 104
  6.   Height = 260
  7.   Width = 346
  8.   object dbDemo: TDatabase
  9.     AliasName = 'SCS9707'
  10.     Connected = True
  11.     DatabaseName = 'DemoDb'
  12.     LoginPrompt = False
  13.     Params.Strings = (
  14.       'USER NAME=sysdba'
  15.       'PASSWORD=masterkey')
  16.     SessionName = 'Default'
  17.     Left = 30
  18.     Top = 11
  19.   end
  20.   object qryCreditIssue: TQuery
  21.     DatabaseName = 'DemoDb'
  22.     Params.Data = {
  23.       0100030006616D6F756E740000000006616D6F756E7400000000084372656469
  24.       744E6F00000000}
  25.     SQL.Strings = (
  26.       'update Credits'
  27.       
  28.         '  set status = '#39'I'#39', amount = :amount, balancedue = :amount, issu' +
  29.         'edatetime = '#39'now'#39
  30.       '  where CreditNo = :CreditNo')
  31.     Left = 30
  32.     Top = 123
  33.   end
  34.   object spCreditNew: TStoredProc
  35.     DatabaseName = 'DemoDb'
  36.     StoredProcName = 'CREDITNEW'
  37.     Params.Data = {
  38.       0100030009494352454449544E4F010304000000000000000749435553544E4F
  39.       01030400000000000000094F4352454449544E4F02030400000000000000}
  40.     Left = 28
  41.     Top = 70
  42.   end
  43.   object qryCreditsOutByCustomer: TQuery
  44.     DatabaseName = 'DemoDb'
  45.     Params.Data = {0100010006437573744E6F00030400000000000000}
  46.     SQL.Strings = (
  47.       'select * from Credits'
  48.       '  where CustNo = :CustNo and'
  49.       '             status = '#39'I'#39
  50.       '  order by CreditNo'
  51.       '')
  52.     Left = 135
  53.     Top = 122
  54.     object qryCreditsOutByCustomerCREDITNO: TIntegerField
  55.       DisplayLabel = 'Num'
  56.       FieldName = 'CREDITNO'
  57.     end
  58.     object qryCreditsOutByCustomerAMOUNT: TFloatField
  59.       DisplayLabel = 'Amount'
  60.       FieldName = 'AMOUNT'
  61.       Currency = True
  62.     end
  63.     object qryCreditsOutByCustomerBALANCEDUE: TFloatField
  64.       DisplayLabel = 'Balance Due'
  65.       FieldName = 'BALANCEDUE'
  66.       Currency = True
  67.     end
  68.     object qryCreditsOutByCustomerISSUEDATETIME: TDateTimeField
  69.       DisplayLabel = 'Issue Date'
  70.       DisplayWidth = 18
  71.       FieldName = 'ISSUEDATETIME'
  72.     end
  73.   end
  74.   object qryPaymentMethodsGet: TQuery
  75.     DatabaseName = 'DemoDb'
  76.     SQL.Strings = (
  77.       'select * from PaymentMethods order by Sequence')
  78.     Left = 134
  79.     Top = 72
  80.   end
  81. end
  82.